add_components

Construct sophisticated graphics utilizing + and convert it into ggplotly

base <-
 ggplot(mpg, aes(displ, hwy)) +
 geom_point()
p <-  base + geom_smooth()

plotly::ggplotly(p)

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

base <-
 ggplot(mpg, aes(displ, hwy)) +
 geom_point()
p <-  base %+% subset(mpg, fl == "p")

plotly::ggplotly(p)

base <-
 ggplot(mpg, aes(displ, hwy)) +
 geom_point()
p <-  base + list(subset(mpg, fl == "p"), geom_smooth())

plotly::ggplotly(p)

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'